Attribute VB_Name = "modTipi"
Option Explicit

Public laData As String
Public cnPrinc As Connection
Public cnCentro As Connection

Public Const strKeyVolume As String = "!&^_`}~804FGHUJK!'^"            '  volume
Public Const nomeVolume As String = "SysCrypt.tc"

Public numFormAperti As Integer
Public numFormAttivo As Integer
Public stoRicaricando As Boolean

Public v_nomi() As Variant
Public v_val() As Variant

Type apri
    pathVolume As String
    pathTrueCrypt As String
    pathDB As String                 ' il percorso del db sul computer
    pathExe As String
    toolBar As String
    strKey As String
    strNum As Integer
    server As Boolean
    nomeServer As String
End Type
Public structApri As apri
'-------------------------

Enum tipoEliminazione
    tpSTRUMETALI = 1
    tpLAB = 2
    tpTERAPIEDIALITICHE = 3
    tpTERAPIEDOMICILIARI = 4
    tpUTENTI = 5
End Enum
Public tEliminazione As tipoEliminazione
'-------------------------

Enum tipoModifiche
    tpMDIALITICHE = 1
    tpMNEFROLOGICHE = 2
    tpMPATOLOGICHE = 3
    tpMSTRUMENTALI = 4
    tpMESAMILAB = 5
    tpMTERAPIEDOMICILIARI = 6
    tpMTERAPIEDIALITICHE = 7
    tpMACCESSI = 8
    tpMDIARI = 9
    tpMCOLTURE = 10
    tpMRICOVERI = 11
    tpMEPISODI = 12
    tpMTRASFUSIONI = 13
    tpMSIEROCONVERSIONI = 14
End Enum
Public tModifiche As tipoModifiche
'-------------------------

Enum tipoVisualizza
    tpELIMINAZIONI = 1
    tpMODIFICHE = 2
    tpACCESSI = 3
End Enum
Public tVisualizza As tipoVisualizza
'----------------------------

Enum tipoUtente
    tpMEDICO = 1
    tpINFERMIERE = 2
    tpCONTABILE = 3
    tpAMMINISTRATORE = 4
    tpTUTTI = 5
End Enum
Type structFiltro
    indexUtente As Integer
    dataMin As Date
    dataMax As Date
    unSoloTipo As Boolean               ' una solo tipologia di utente
    tipo As tipoUtente
End Type
' ogni form col proprio tFiltro
'-----------------------


Type structStampa
    utente As tipoUtente
    dataDal As Date
    dataAl As Date
    tutteLeDate As Boolean
End Type
Public tStampe As structStampa
